home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / autolib / auto_reset.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  5.5 KB  |  127 lines
  1. /*
  2. ### reset all parameters with the typed in values of auto panel items ###
  3. */
  4.  
  5. #include <stdio.h>
  6. #include <suntool/sunview.h>
  7. #include <suntool/panel.h>
  8. #include "../include/auto_kaos_def.h"
  9.  
  10. auto_reset()
  11. {
  12.  
  13.     int i,j;
  14.     extern short auto_panel_show;
  15.     extern char string[],auto_dir_name[],auto_file_name[],auto_input_name[];
  16.     /* AUTO86 declerations */
  17.     extern int auto_ndim,auto_ips,auto_irs,auto_ilp;
  18.     extern int auto_ntst,auto_ncol,auto_iad,auto_isp,auto_isw,auto_iplt;
  19.     extern int auto_nbc,auto_nint,auto_nmx,auto_npr,auto_mxbf,auto_iid;
  20.     extern int auto_itmx,auto_itnw,auto_nwtn,auto_jac,auto_nuzr;
  21.     extern int auto_n1,auto_n2,auto_nfpar,auto_icp[];
  22.     extern double auto_rl0,auto_rl1,auto_a0,auto_a1,auto_par[];
  23.     extern double auto_epsu,auto_epss,auto_epsl[],auto_ds,auto_dsmin,auto_dsmax;
  24.     extern double auto_thetau,auto_thetal[];
  25.     extern Panel_item auto_dir_name_item,auto_file_name_item,auto_input_name_item;
  26.  
  27.     extern Panel_item auto_ndim_item,auto_ips_item,auto_irs_item,auto_ilp_item;
  28.     extern Panel_item auto_ntst_item,auto_ncol_item,auto_iad_item,auto_isp_item,auto_isw_item,auto_iplt_item;
  29.     extern Panel_item auto_nbc_item,auto_nint_item,auto_nmx_item,auto_npr_item,auto_mxbf_item,auto_iid_item;
  30.     extern Panel_item auto_itmx_item,auto_itnw_item,auto_nwtn_item,auto_jac_item,auto_nuzr_item;
  31.     extern Panel_item auto_nfpar_item,auto_icp_item[];
  32.     extern Panel_item auto_rl0_item,auto_rl1_item,auto_a0_item,auto_a1_item,auto_par_item[];
  33.     extern Panel_item auto_epsu_item,auto_epss_item,auto_epsl_item[],auto_ds_item,auto_dsmin_item,auto_dsmax_item;
  34.     extern Panel_item auto_thetau_item,auto_thetal_item[];
  35.  
  36.     if(auto_panel_show){
  37.             strcpy(auto_dir_name,(char *)panel_get_value(auto_dir_name_item));
  38.             strcpy(auto_file_name,(char *)panel_get_value(auto_file_name_item));
  39.             strcpy(auto_input_name,(char *)panel_get_value(auto_input_name_item));
  40.  
  41.         strcpy(string, (char *) panel_get_value(auto_ndim_item));
  42.         sscanf(string, "%d", &auto_ndim);
  43.         strcpy(string, (char *) panel_get_value(auto_ips_item));
  44.         sscanf(string, "%d", &auto_ips);
  45.         strcpy(string, (char *) panel_get_value(auto_irs_item));
  46.         sscanf(string, "%d", &auto_irs);
  47.         strcpy(string, (char *) panel_get_value(auto_ilp_item));
  48.         sscanf(string, "%d", &auto_ilp);
  49.         strcpy(string, (char *) panel_get_value(auto_ntst_item));
  50.         sscanf(string, "%d", &auto_ntst);
  51.         strcpy(string, (char *) panel_get_value(auto_ncol_item));
  52.         sscanf(string, "%d", &auto_ncol);
  53.         strcpy(string, (char *) panel_get_value(auto_iad_item));
  54.         sscanf(string, "%d", &auto_iad);
  55.         strcpy(string, (char *) panel_get_value(auto_isp_item));
  56.         sscanf(string, "%d", &auto_isp);
  57.         strcpy(string, (char *) panel_get_value(auto_isw_item));
  58.         sscanf(string, "%d", &auto_isw);
  59.         strcpy(string, (char *) panel_get_value(auto_iplt_item));
  60.         sscanf(string, "%d", &auto_iplt);
  61.         strcpy(string, (char *) panel_get_value(auto_nbc_item));
  62.         sscanf(string, "%d", &auto_nbc);
  63.         strcpy(string, (char *) panel_get_value(auto_nint_item));
  64.         sscanf(string, "%d", &auto_nint);
  65.         strcpy(string, (char *) panel_get_value(auto_nmx_item));
  66.         sscanf(string, "%d", &auto_nmx);
  67.         strcpy(string, (char *) panel_get_value(auto_npr_item));
  68.         sscanf(string, "%d", &auto_npr);
  69.         strcpy(string, (char *) panel_get_value(auto_mxbf_item));
  70.         sscanf(string, "%d", &auto_mxbf);
  71.         strcpy(string, (char *) panel_get_value(auto_iid_item));
  72.         sscanf(string, "%d", &auto_iid);
  73.         strcpy(string, (char *) panel_get_value(auto_itmx_item));
  74.         sscanf(string, "%d", &auto_itmx);
  75.         strcpy(string, (char *) panel_get_value(auto_itnw_item));
  76.         sscanf(string, "%d", &auto_itnw);
  77.         strcpy(string, (char *) panel_get_value(auto_nwtn_item));
  78.         sscanf(string, "%d", &auto_nwtn);
  79.         strcpy(string, (char *) panel_get_value(auto_jac_item));
  80.         sscanf(string, "%d", &auto_jac);
  81.         strcpy(string, (char *) panel_get_value(auto_nuzr_item));
  82.         sscanf(string, "%d", &auto_nuzr);
  83.         strcpy(string, (char *) panel_get_value(auto_nfpar_item));
  84.         sscanf(string, "%d", &auto_nfpar);
  85.         for(i=0;i<AUTO_NFPAR_MAX;i++){
  86.             strcpy(string, (char *) panel_get_value(auto_icp_item[i]));
  87.             sscanf(string, "%d", &auto_icp[i]);
  88.         }
  89.  
  90.         strcpy(string, (char *) panel_get_value(auto_rl0_item));
  91.         sscanf(string, "%lg", &auto_rl0);
  92.         strcpy(string, (char *) panel_get_value(auto_rl1_item));
  93.         sscanf(string, "%lg", &auto_rl1);
  94.         strcpy(string, (char *) panel_get_value(auto_a0_item));
  95.         sscanf(string, "%lg", &auto_a0);
  96.         strcpy(string, (char *) panel_get_value(auto_a1_item));
  97.         sscanf(string, "%lg", &auto_a1);
  98.  
  99.         strcpy(string, (char *) panel_get_value(auto_epsu_item));
  100.         sscanf(string, "%lg", &auto_epsu);
  101.         strcpy(string, (char *) panel_get_value(auto_epss_item));
  102.         sscanf(string, "%lg", &auto_epss);
  103.         strcpy(string, (char *) panel_get_value(auto_epsl_item[0]));
  104.         sscanf(string, "%lg", &auto_epsl[0]);
  105.         strcpy(string, (char *) panel_get_value(auto_epsl_item[1]));
  106.         sscanf(string, "%lg", &auto_epsl[1]);
  107.         strcpy(string, (char *) panel_get_value(auto_thetau_item));
  108.         sscanf(string, "%lg", &auto_thetau);
  109.         strcpy(string, (char *) panel_get_value(auto_thetal_item[0]));
  110.         sscanf(string, "%lg", &auto_thetal[0]);
  111.         strcpy(string, (char *) panel_get_value(auto_thetal_item[1]));
  112.         sscanf(string, "%lg", &auto_thetal[1]);
  113.  
  114.         strcpy(string, (char *) panel_get_value(auto_ds_item));
  115.         sscanf(string, "%lg", &auto_ds);
  116.         strcpy(string, (char *) panel_get_value(auto_dsmax_item));
  117.         sscanf(string, "%lg", &auto_dsmax);
  118.         strcpy(string, (char *) panel_get_value(auto_dsmin_item));
  119.         sscanf(string, "%lg", &auto_dsmin);
  120.         for(i=0;i<AUTO_ALL_PARAM_DIM;i++){
  121.             strcpy(string, (char *) panel_get_value(auto_par_item[i]));
  122.             sscanf(string, "%lg", &auto_par[i]);
  123.         }
  124.     }
  125.  
  126. }
  127.